﻿Option Strict On
Option Explicit On
Option Infer On

Public Class Wagen

    Private _Naam As String
    Private _UurPrijs As Decimal
    Private _Nightlife As Decimal
    Private _Wedding As Decimal

    Public Property Naam As String
        Get
            Return _Naam
        End Get

        Set(value As String)
            _Naam = value
        End Set
    End Property

    Public Property UurPrijs As Decimal
        Get
            Return _UurPrijs
        End Get
        Set(value As Decimal)
            _UurPrijs = value
        End Set
    End Property

    Public Property Nightlife As Decimal
        Get
            Return _Nightlife
        End Get
        Set(value As Decimal)
            _Nightlife = value
        End Set
    End Property

    Public Property Wedding As Decimal
        Get
            Return _Wedding
        End Get
        Set(value As Decimal)
            _Wedding = value
        End Set
    End Property

    Public Overrides Function Equals(obj As Object) As Boolean
        Return obj.Equals(Naam)
    End Function
    Public Overrides Function GetHashCode() As Integer
        Return Naam.GetHashCode()
    End Function
End Class
